home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 139 / 139side3.d64 / fb- make rel.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  1KB  |  41 lines
  1. 100 rem *******************************
  2. 105 rem *  this program creates the   *
  3. 110 rem *  relative file or makes it  *
  4. 115 rem *           larger.           *
  5. 120 rem *  by john serafino  12/94    *
  6. 125 rem *******************************
  7. 130 rem
  8. 140 rem "fbs.make-rel.bas"
  9. 150 rem
  10. 200 print"[147]"chr$(8)chr$(14);
  11. 205 dv=peek(186):if(dv<8)or(dv>29)thendv=8
  12. 210 poke53280,0:poke53281,0
  13. 220 print"[156]  [198]ilebase 64    [210]elative [198]ile [205]anager"
  14. 230 print"[156]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  15. 240 print"[154][215]arning:  [208]lease read the documentation"
  16. 250 print"[194][197][198][207][210][197] you attempt to use this program."
  17. 260 input"[153][196]o you wish to continue   n[157][157][157]";a$
  18. 270 if(a$<>"y")and(a$<>"[217]")then:print"[147][208]rogram [200]alted.[151]":end
  19. 290 print"[150][197]nter the [212]arget [196]evice [206]umber: ";
  20. 300 open1,0:input#1,dv$:close1:print
  21. 310 dv=val(dv$):if(dv<8)or(dv>29)then290
  22. 315 print"[152][197]nter the maximum number of records that"
  23. 316 print"[145][152]you will need. [197]ach record will require"
  24. 317 print"one disk block: ";
  25. 320 open1,0:input#1,bs$:close1:print:bs=val(bs$):ifbs<200orbs>10000then315
  26. 325 print"[195]reate"bs" block [210][197][204] [198]ile on drive"dv
  27. 330 input"[158][196]o you wish to continue   n[157][157][157]";a$
  28. 340 if(a$<>"y")and(a$<>"[217]")then:print"[147][208]rogram [200]alted.[151]":end
  29. 400 print"[147][156]  [198]ilebase 64    [210]elative [198]ile [205]anager"
  30. 420 print"[156]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  31. 430 print"            [195]reating [198]ile...
  32. 500 [159]15,dv,15:[159]1,dv,2,"0:fbs.database    ,l,"[170][199](254):nr[178]bs:[141]1000
  33. 510 rh[178][181](nr[173]256):rl[178]nr[171]256[172]rh
  34. 520 [152]15,"p"[170][199](96[170]2)[170][199](rl)[170][199](rh)
  35. 530 [152]15,"p"[170][199](96[170]2)[170][199](rl)[170][199](rh):[141]1000
  36. 540 [152]1,[199](255):[141]1000:[160]1:[141]1000:[160]15
  37. 550 [153]"cont                 str$(NULL)(NULL)val!":[128]
  38. 1000 [132]15,en,em$,et,es:
  39. 1010 [139]en[177]1[175]en[179][177]50[167][153]"atnn valrror (NULL)ccurred.":[160]1:[160]15:[128]
  40. 1020 [142]
  41.